Amiga Plus Extra 1996 #3/AmigaPlus_CD-ROM-EXTRA_Nr.3.bin/aminet-spiele/role on/dma/install

Text File | 1995-06-27 | 6KB | 288 lines

;
; Installation script converted from Final Data HDInstall
;
; Sorry about that !
;


(set is_update 0)
(set @user-level 1)    ; force to use average mode
(set #bad-kick
(cat "You must be using Kickstart 2.04 to install using this script."
))

(if (< (/ (getversion) 65536) 37)
(
    (abort #bad-kick)
))

(complete 0)

(set DMA_dest
    (askdir
        (prompt "In which disk or drawer should the "
                    "DMA drawer be created in?")
        (help "The installation utility will create a drawer named "
            "\"DMA\" in the selected drawer or directory.  All "
            "DMA files and drawers will be placed inside "
            "the new directory.")
        (default @default-dest)
    )
)

; Check if this is an update
; the Mods directory is a tell-tale sign
; that DMA is already installed here

(if (exists (tackon DMA_dest "Mods"))
    (set is_update 1)
    (    (if (exists (tackon DMA_dest "DMA"))
            (set is_update 1)
            (makedir (tackon DMA_dest "DMA") (infos))
        )
        (set DMA_dest (tackon DMA_dest "DMA"))
    )
)

(set @default-dest DMA_dest)
(set disk_space (getdiskspace DMA_dest))

(set disk_space_needed 500000)

(if (AND (< disk_space disk_space_needed) (NOT is_update))
    (
        (set answer1
            (askbool
                (prompt    "There may not be enough room available on "
                            "this drive to install \"DMA\". "
                            "Do you wish to continue?")
                (help    "DMA needs approximately .5 megabytes of "
                        "disk space for a complete installation or .5 megabytes "
                        "for a minimal installation. If Final Data is already "
                        "installed on this partition, you may wish to continue. "
                        "Otherwise, press ABORT or NO now and either free some "
                        "space on this partition or select a different partition "
                        "for the installation.")
            )
        )
        (if (NOT answer1)
            (abort "DMA installation cancelled. Not enough disk "
                    "space on Volume \""
                    (getdevice @default-dest)
                    "\"."
            )
        )
    )
)

; Allow updating user to select what they want updated

(if is_update
    ; YES - already installed
    (set install_options
        (askoptions
            (prompt "What parts would you like to update?")
            (help @askoptions-help)
            (choices
                "DMA Program"
                "Modules"
                "Sounds"
                "Documentation"
                                "Libraries")
            (default 11)        ; default to 0001-1001 = (1)Program, (8)Sys Files and (16)Libraries
        )
    )

    ; NO - First time install
        (set install_options 31)    ; hex 3F - 0011-1111 - all six options on
)

(set error 0)

; Installing files from ""
(if (IN install_options 0 1 2 3 4)
    (
        ; -----------------
        ; Copy the CloseWB program to the hard drive
        ; so everyone is guaranteed to have it.
        ; -----------------
        (if (NOT is_update)
            (copyfiles
                (source "c/CloseWB")
                (dest "C:")
            )
        )
        ; -----------------
        ; If installing/updating the program
        ; -----------------
        (if (IN install_options 0)
            (
                ; ----- COPY the DMA program over
                (working "Installing DMA program from current dir.")
                (copyfiles
                    (source "DMA")
                    (dest DMA_dest)
                )
                ; ----- CREATE Players,Chars dirs, COPY Players/#?
                (makedir (tackon DMA_dest "Chars"))
                (if (NOT (exists (tackon DMA_dest "Players")))
                    (
                    (makedir (tackon DMA_dest "Players"))
                    )
                )
                (working "Installing Players from Players dir.")
                (copyfiles
                    (source "Players")
                    (dest (tackon DMA_dest "Players"))
                    (all)
                )
                ; ----- COPY the DMA.info if the icon doesn't exists
                (if (NOT (exists (tackon DMA_dest "DMA.info")))
                    (copyfiles
                        (source "DMA.info")
                        (dest DMA_dest)
                    )
                )
            )
        )
        (complete 40)


        ; -----------------
        ; Installing DMA Modules
        ; -----------------
        (if (IN install_options 1)
            (
                ; ----- CREATE Mods if it doesn't exist.
                (if (NOT (exists (tackon DMA_dest "Mods")))
                    (
                    (makedir (tackon DMA_dest "Mods"))
                    )
                )
                (working "Installing Modules from Mods dir.")
                (copyfiles
                    (source "Mods")
                    (dest (tackon DMA_dest "Mods"))
                    (all)
                )
            )
        )
        (complete 50)


        ; -----------------
        ; Installing DMA Sounds
        ; -----------------
        (if (IN install_options 2)
            (
                ; If Sounds doesn't exist, create it.
                (if (NOT (exists (tackon DMA_dest "Sounds")))
                    (
                    (makedir (tackon DMA_dest "Sounds"))
                    )
                )
                (working "Installing Sounds from Sounds dir.")
                (copyfiles
                    (source "Sounds")
                    (dest (tackon DMA_dest "Sounds"))
                    (all)
                )
            )
        )
        (complete 70)

        ; -----------------
        ; Installing DMA Docs
        ; -----------------
        (if (IN install_options 3)
            (
                ; If Docs doesn't exist, create it.
                (if (NOT (exists (tackon DMA_dest "Docs")))
                    (
                    (makedir (tackon DMA_dest "Docs"))
                    )
                )
                (working "Installing Documentation from Docs dir.")
                (copyfiles
                    (source "Docs")
                    (dest (tackon DMA_dest "Docs"))
                    (all)
                )
                (working "Installing Docs Icon from current dir.")
                (copyfiles
                     (source "Docs.info")
                     (dest DMA_dest)
                    (files)
                )
            )
        )
        (complete 80)

        ; -----------------
        ; Installing DMA Libs
        ; -----------------
        (if (IN install_options 4)
            (
                ; If DMALibs doesn't exist, create it.
                (if (NOT (exists "LIBS:"))
                    (
                    (makedir "SYS:libs")
                    )
                )
                (working "Installing System Libraries from Libs dir.")
                (if (< (/ (getversion) 65536) 37)
                     (copyfiles
                         (source "libs/reqtools.library")
                         (dest "LIBS:")
                        (files)
                     )
                )
                (copyfiles
                     (source "libs/reqtools.library")
                     (dest "LIBS:")
                    (files)
                )
            )
        )

        (run ("Avail FLUSH")

        )
    )
)

; ------- STARTUP ÄNDERN

(complete 90)

(set command1 (cat "Assign DMA: " @default-dest))

(set command1.txt
    (cat
         "\n\n\nNow I'm going to add to your user-startup this line :\n\n"
         command1
    )
)

(startup "DMA"
    (prompt command1.txt)
    (help @startup-help)
    (command command1)
)

(if @pretend
    (makeassign "DMA" @default-dest)
)

; ------- FERTIG

(complete 100)

(message (cat
    "Installation of Dungean Master Aid completed.\n\n\n"
    "Hope we'll meet with another versions ;]"
)
)

(exit)